-- background: 2667 from stack: in
-- bmap block id: 3534
-- flags: 4000
-- background id: 0
-- name: 


-- part 1 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=396 top=212 right=229 bottom=491
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Double-Click Me
----- HyperTalk script -----
on mouseDown
  global clickTick
  put clickTick into temp
  put the ticks into clickTick
  if (clickTick - temp) < 100 then
    answer "You double-clicked the mouse." with "OK"
  end if
end mouseDown



-- part 3 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=38 top=192 right=233 bottom=80
-- title width / last selected line: 0
-- icon id / first selected line: 11370 / 11370
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Import
----- HyperTalk script -----
on mouseUp
  --Bob Beichner assisted with this script
  global fileName
  ask "What file?"
  put it into fileName
  if fileName is empty then exit mouseUp
  open file fileName
  doMenu "New Card"
  reader
  close file fileName
end mouseUp


on reader
  global fileName
  repeat
    read from file fileName until tab
    if it is empty then exit reader
    put it into field 1
    read from file fileName until tab
    put it into field 2
    read from file fileName until return
    put it into field 3
    doMenu "New Card"
  end repeat
end reader


-- part 4 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=338 top=280 right=330 bottom=434
-- title width / last selected line: 0
-- icon id / first selected line: 1014 / 1014
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Right
----- HyperTalk script -----
on mouseUp
  put "bkgnd button " & quote & "Left" & quote into B1
  put "bkgnd button " & quote & "Right" & quote into B2
  if name of me is B1 then
    set name of me to "Right"
    set icon of B2 to 1014
    exit mouseUp
  else
    if name of me is B2 then
      set name of me to "Left"
      set icon of B1 to 1013
    end if
  end if
end mouseUp






-- part 6 (field)
-- low flags: 01
-- high flags: 0004
-- rect: left=195 top=192 right=250 bottom=374
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 


-- part 7 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=84 top=193 right=232 bottom=120
-- title width / last selected line: 0
-- icon id / first selected line: 800 / 800
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Export
----- HyperTalk script -----
on mouseUp
  global fileName
  ask "What file?"
  put it into fileName
  if fileName is empty then exit mouseUp
  open file fileName
  writer
  close file fileName
end mouseUp


on writer
  global fileName
  repeat with x=1 to the number of cards
    write field 1 to file fileName
    write field 2 to file fileName
    write field 3 to file fileName
    go to next card
  end repeat
end writer


-- part 8 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=384 top=120 right=142 bottom=484
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Move Button
----- HyperTalk script -----
on mouseUp
  repeat 1 times
    choose button tool
    set dragSpeed to 200
    drag from 49, 70 to 450, 70 with ShiftKey
    drag from 450, 70 to 49, 70 with ShiftKey
    choose browse tool
  end repeat
end mouseUp



-- part 9 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=10 top=53 right=106 bottom=104
-- title width / last selected line: 0
-- icon id / first selected line: 32670 / 32670
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Speed
----- HyperTalk script -----
on mouseUp
  answer "Nothing in this Button." with "OK"
end mouseUp



-- part 10 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=173 top=298 right=330 bottom=266
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Geneva
----- HyperTalk script -----
on mouseUp
  put "bkgnd button " & quote & "Chicago" & quote into B1
  put "bkgnd button " & quote & "Geneva" & quote into B2
  if name of me is B1 then
    set name of me to "Geneva"
    set textFont of B2 to Geneva
    set textStyle of B2 to plain
    set textSize of B2 to 9
    exit mouseUp
  else
    if name of me is B2 then
      set name of me to "Chicago"
      set textFont of B1 to Chicago
      set textStyle of B1 to bold
      set textSize of B1 to 12
    end if
  end if
end mouseUp






-- part 11 (field)
-- low flags: 80
-- high flags: 0004
-- rect: left=129 top=56 right=161 bottom=363
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Info